home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / editor / blksedtr.lha / BED / Rexx / UnsetLocks.bed < prev   
Text File  |  1996-01-28  |  330b  |  24 lines
  1. /*
  2. ** $VER: UnsetLocks.bed 1.0 (03.01.96)
  3. **
  4. ** Unset all display and input locks currently set in any BlacksEditor
  5. ** document.
  6. */
  7.  
  8. OPTIONS RESULTS
  9. OPTIONS FAILAT 11
  10.  
  11. ADDRESS BED
  12.  
  13. GetDocuments
  14. docs = RESULT
  15.  
  16. DO WHILE docs ~= ''
  17.     PARSE VAR docs '"' . '" ' port docs
  18.  
  19.     ADDRESS VALUE port
  20.  
  21.     SetDisplayLock OFF
  22.     SetInputLock OFF
  23. END
  24.